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CHEW - CONVERT ANY BCD TO BINARY- 
DOUBLE PRECISION 



DEC US Program Library Write-up DECUS No. 8-93 

ABSTRACT 

This subroutine converts a double precision (6 digit) unsigned-integral-binary coded decimal 
(BCD) number with bit values of 4, 2, 2, and 1 to Its integral-positive-binary equivalent in 
two computer words. It is possible to change the bit values to any desired values and thereby 
convert any BCD number to binary. 

REQUIREMENTS 

A. Standard PDP-8 or PDP-8/S 

B. Core storage - 0109iq 

C. Locations 3 and 4 on page zero must be temporarily available for use by this subroutine 

D. Location 164 must contain a -4. Location 166 must contain a -6. 

SUBROUTINES USED 

None 

RESTRICTIONS 

None 

USAGE 

Enter this subroutine with a JMS CHEW. The first location following the JMS must contain the 
address of the most significant part of the BCD number to be converted. Return to the main 
program will be at JMS + 2 with the accumulator and link clear. The results are temporarily 
stored as follows: 



C (Location 3) ^ most significant portion of answer 
C (Location 4) * least significant portion of answer 



COMMENTS 



This subroutine assumes that the number to be converted to binary is a binary coded decimal 
(BCD) number occupying two 12-bit words. The subroutine then searches by continually rotating 
the words left starting with the most significant half of the BCD number. When a bit is found, 
its bit value is multiplied by 12 (octal) the proper number of times. The basis for the conversion 
routine is that 



100,000 (decimal) equals 12 (octal) exponent 5 

10,000 (decimal) equals 12 (octal) exponent 4 

1,000 (decimal) equals 12 (octal) exponent 3 

100 (decimal) equals 12 (octal) exponent 2 

10 (decimal) equals 12 (octal) exponent 1 

1 (decimal) equals 1 (octal) 

Therefore, if we have a BCD number with the bit values equal to 4, 2, 2, and 1, and the 
following bit construction in two words 

1000 0000 0000 # most significant half 
0000 0000 0000 # least significant half 

This subroutine multiplies 4 by 1 2 (octal) five times since the bit is in the hundred thousands 
place, and adds the resultant binary number by double precision addition to the binary values 
of any other bits that may be present in the two-word BCD number. 

The bit values used by this subroutine can be changed by placing the desired bit values (in 
octal) in the four locations called store in the program listing, starting with the leftmost bit 
value in a 4-bit group and proceeding to the right to that the rightmost bit value is contained 
in store+3 in this manner, any form of BCD number can be converted to binary. 

The program expects to find two words full of BCD coded bits as follows. 

HT TT TH 
Location A- /,,,/,,,/,,,/ -most significant half 
Location B- /,,,/,,,/,,,/ -least significant half 

H T U 

Where HT, TT, TH, H, T, and U represent BCD digits in the hundred thousands, ten thousands, 
thousands, hundreds, tens, and units places respectively. 

Locations A and B must be sequential. If only a 12-bit BCD number (i.e., one word) were 
to be converted to binary^ location A would have to be filled with zeros with the data in 
the following location. In other words, BCD words ranging in length from 1 to 6 digits can be 
converted to binary if they are right justified in a double precision word upon entry to this 
subroutine. 

The biggest double precision BCD number (i.e., 999,999) is equal to 3641077 (octal) which 
does not fill the sign bit in a double precision word. This means that any positive-double 
precision number in BCD can be translated to a positive-double precision number In binary. 

The maximum execution time for this subroutine is approximately 5.31 milliseconds. 

The program listing follows. 



COMPUTER PROGRAM 



PAL 00CC21 



PAGE 



CJiEMi 



00, 



CLA CLL 

.__TAD _NeG24 

OCA CHKl 

TAP lf>4 

CCA CHK2 

TAO 166 

CCA CHK3 

DCA ChK4 

TAD I CHEW 

CCA A OR S' 

_ TAO T AORS 

OCA HOLD 

_ ISZ AORS 

TAO I AORS 

DCA H9LD+1 

CCA 3 

OCA 4 

TAO HOLD 

_ DCA TEMPY_ 

CLA CLL 

TAO TEMPY 



AGN, 



RAL 

OCA TEHPV 

SNL 

JMP INC J 

TAD I TABLE 

CCA CUM + 1 

ISZ CHK4 

TAO CHK4 



/CHEW-CCNVERT ANY RCO TO BINARY- 
/OGUBLE PRECISICN PAL 00021 A 



/SET COUNTER I#-30 OCTAL 

/-4 IN ACC. 

/SET J#-4 

/-6 IN ACC. 

/ SET L#-6 

/ SET M*C 

/ GET CONTENTS OF LGC AFTER JMS CHEW INS 

T 
/ STORE LCC OF 
/ GET ^«CST SIG 
/STORE ^OST SIG. 
/GET TO AOORS OF 



f'CST SIG OF BCD# 
OF BCO# IN ACC 

OF BCD NO. 

LEAST SIG. BCD NO. 



/STORE LEAST SIG.BCD NO. 

/ NOW CLEAR THFSF TWO LOCATIONS FOR 

/SUMMATION OF /ANSWER 

/MOST SIG. OF BCC NO. IN ACC 

/VALUE IN ACC. TO CGH^ON STORAGE 

/ STORE IT + GET IT BACK 



TAD CHK3 

5ZA 

JMP HLTPY 
CLL CLA 
TAO CUM4-1 
TAD 4 
DCA 4 

RAL 

TAD CUH 
TAO 3 



MLTPY, 



CCA 3 

OCA CUM 

DCA CHk4 

_J_MP LNCJ 

J«~S MULT 



/STORE RCTATEC # 

/IS THERE A BIT 

/ NO INCREMENT COUNTERS 

/YES ADO CNE OF THE BIT VALUES 

/ PUT IT IN LEAST SIG OF MULTIPLICATIONS 

/ M#H4-1 

/ GET M 
/ H+{-L) 

/ NO GC ^'ULTIPLY 

/ YES GET LEAST SIG RESULT OF MULTIPLY 

/ADD IT TO LEAST SIG. OF BINARY NO. 

/STORE RESULT IN BINARY NO. LOCATION 

/ ADD 

/ MOST SIG 

/HALVES 

/STORE FOR POSSIBLE EXIT 

/CLEAR FCR RESULT OF NEXT MULTIPLY 

/ SET M*0 

/ GO INCREMENT CCUNTERS 

/GO TO MULTIPLY PY 12 SUBROUTINE 



.CCMPUT_EB PROGRAM 



PAL C0CC21 A 



PAGE 



INCJt 



INC I, 



JMP 
ISZ 
ISZ 
JMP 
PAGE8RK 
TAD 
OCA 
TAD 
OCA 
lAC 
XAO 
DCA 
ISZ 
JMP 
ISZ 
CLL 
JMP 
TAD 
TAO 
SZA 
JMP 
jAo 

JMP 



MULT, 






REPEAT, 



AGN 
TABLE 
CHK2 
INCI 

164 
CHK2 
RESET 
TABLE 

C HK 3 
C HK 3 

CHKl 

.*4 
CHEW _. 

I CHEW. 

CHKl 

FRTN 

CLA 

DC 

HOLO+1 

MID 




CLA 

TAG 
__DC_A_ 

TAC 
_ DCA 

TAO 
_I1CA 

CLL 

._TAn_ 

TAC 
CCA 



CLJ 

NEGll 

C_gUNT 

CUM + 1 

_NOW+l 

CUM 

MOW 

C_UM_ti 
NOW + l 

CUMJ-X- 



RAL 
TAG 
TAD 
DCA 
ISZ 
JMP 



CUM 

NOW 
CUM 
COUNT 
REPEAT 



NEG24, 

CHKl, 

C'hK2, 

CHKli 

CHK4, 



CLL 
JMP 

-30 





Q 





I MULT 



-14 OCTAL. 
TO MAIN PROG 



/ STCRE*ST0RE+1 

/ j#j-«-no 

/ NO INCREMENT I 

/-4 IN ACC 

/ RESET J TC -4 

/ PUT STC.RE BACK TO INITIAL VALUE 

/+1 IN ACC 

/ l*-! 

/ L#L+1 

/ I#Ul*C 

/NO, GO SEE IF I EQUALS 

/ INCREMENT RETLRN LOC 

/CLEAR FOR EXIT 

/ JUMPS BACK TC MAIN PROG PAST ILOC 

/ ADD I TO ACC 

/ADD +14 OCTAL TO ACC 

/ DOES I#-12 

/ NO, GO BACK ANC LCGK FOR ANOTHER 

/YES.GET LEAST SIG.BCD NO. IN ACC 

/ PUT LEAST SIG OF BCD#IN TEMPY 

/SUBROUTINE TO f'ULTIPLY THE VALUE 

/IN CUM BY 12 OCTAL. 

/SET CC3UNTER TO 

/NtMjyS_ 11 OCTAL. 

/RESTORE STARTING VALUE SO IT CAN 

/BE ApDEO TO ITSELF 12 TIMEStOCTAL — 
/AND STILL RETAIN THE RUNNING TOTAL — 
/IN. CUM AND CUM+1, 

y_AD_0__LEAST- — 
/SIG. PARTS. 



BIT 



/ADD ANY OVERFLOW IN LINK 

JiaiHE SUM OF THE MOST SIGS* 



/IF ZERO, NO. HAS BEEN ADDED TO ITSELF- 
/12 OCTAL TIMES. 



/EXIT TO MAIN PROGRAM 

/OCTAL NO. 

/ COUNTER I-SEF FLOWCHART 

/ COUNTER J 

/ CQUNTEP L 

/ CQINTER M 



COM PUTER PROGRAM 



PAL 0G0021 A 



PAGE 



lEMPY, 





ACRS, 





CUMt. 










_TA8tEf 


.S.TORE 


RESET. 


_ STORE 


FRTN, 


14 


STORE,: 


4 




?. 




2 




1 


HCLDi. . 


. _ 







. NGWt 










NEGIV, 


llhl 


COUNT, 





! 


PAGE8RK 




PALSE 



/ LQCATICN OF BCD# 

/ HOLDS RESILTS OF MULTIPLYt X, IZV ) 

/ WHERE X#4,?,2,0Rl Y#ITHRU5 

/ MEANS TO GET STORe#STORE+l + TC RESET 

IT 
/HEANS TC RESET START AODRS OF BITS. 
/OCTAL NO. 

/OCTAL eiT VALUES OF THE 4-BIT GROUPS 

/MAKING UP AN INDIVIDUAL BCD DIGIT 

/STARTING WITH THE LEFTMOST BIT 

/VALUE AND PROCEFOING RIGHT. 



